home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / simuty / simuty.bas next >
BASIC Source File  |  1991-10-18  |  3KB  |  76 lines
  1.     1   ' save "simuty.bas",a
  2.     2   '
  3.     3   '　＜　使い方　＞
  4.     4   '　　１０９０～１１００行にそれぞれ、ドライブ名とファイル名を書き込
  5.     5   '　んで下さい。（入力させる方が良かったかな？）
  6.     6   '　あとは、データディスクをセットして一丁上がり。
  7.     7   '
  8.     8   '
  9.  1000   '　　シムシティ（ＦＭ－ＴＯＷＮＳ版）　ＭＡＸＩＳ社       
  10.  1010   '　　　　『お金を増やそう！』という、プログラム           
  11.  1020   '                                                         
  12.  1030   '　　　言　語　：ＦＢＨＧ／ＦＢＡＳＩＣ３８６             
  13.  1040   '　　ファイル名：SIMUTY.BAS                               
  14.  1050   '　　　日　付　：1990.05.08 (AM 01:26)  Ver 1.0           
  15.  1060   '　　プログラム：炬燵猫（Ｇ－Ａ７／住職ソフト）           
  16.  1070   '
  17.  1080   '
  18.  1090   DRIVE$  = "a:"          ' ドライブ名を書く
  19.  1100   FILNAM$ = "kappa"       ' 都市名を書く
  20.  1110   :
  21.  1120 *MES
  22.  1130   data  "  "
  23.  1140   data  "［　シムシティ・開発融資銀行　］", "　"
  24.  1150   data  "　当行は、都市開発の政府援助を目的に設立されました。　　　　　"
  25.  1160   data  "　この都市開発には、政府の地方交付金と無償援助金を充てるので、"
  26.  1170   data  "　費用は全て政府持ち、という訳ですな。　　　　"
  27.  1180   data  "　しかしながら、有効に使って頂かないと、"
  28.  1190   data  "　あとで責任問題になりかねませんぞ。　　　　　" , "　"
  29.  1200   data  "　さて、市長。いか程、御融資しましょうか。" , ""
  30.  1210   :
  31.  1220   :
  32.  1230   M$(0) = "市長、お気は確かですか？　もう１度、お聞きしますよ。"
  33.  1240   M$(1) = "御冗談を・・・難行・苦行のつもりですか？　やめましょう。"
  34.  1250   M$(2) = "市長、欲張りすぎちゃいけません。もう少しお考えを。"
  35.  1260   M$(3) = "分かりました。御融資致しましょう。"
  36.  1270   M$(4) = "よろしいですね。（ｙ／ｎ）＝　"
  37.  1280   M$(5) = "市長の御健闘をお祈り致しております。（終了しました）"
  38.  1290   :
  39.  1300   '
  40.  1310   :
  41.  1320   cls
  42.  1330   print "ドライブ" + akcnv$( DRIVE$ ) + "に、";
  43.  1340   print akcnv$(FILNAM$) + "のファイルのあるディスクをセットして下さい。"
  44.  1350   print "準備できましたら、スペースキーを押して下さい。"
  45.  1360   :
  46.  1370   while ( inkey$<>"" ) : wend : while ( input$(1)<>" " ) : wend
  47.  1380   while ( inkey$<>"" ) : wend
  48.  1390   :
  49.  1400   open "R" , #1 , DRIVE$ + "(1)" + FILNAM$ + ".cty"
  50.  1410     field #1 , 1 as DAT$
  51.  1420   :
  52.  1430   restore *MES : A$ = " " : while ( A$<>"" ) : read A$ : print A$ : wend
  53.  1440   :
  54.  1450 *INP_MONEY
  55.  1460   print : input "御希望の金額をどうぞ＝" , MONEY$
  56.  1470   MONEY# = val( MONEY$ )
  57.  1480   if MONEY# = 0 then print M$(0) : goto *INP_MONEY
  58.  1490   if MONEY# < 0 then print M$(1) : close : end
  59.  1500   if MONEY# > 10000000# then print M$(2) : close : end
  60.  1510   print M$(3)
  61.  1520   print akcnv$( str$( MONEY# ) ) ; "ドル　ですね。"
  62.  1530   print M$(4) ; : YN$ = input$(1) : print YN$
  63.  1540   if YN$<>"y" and YN$<>"Y" then *INP_MONEY
  64.  1550   :
  65.  1560   for I=0 to 3
  66.  1570     M1# = int( MONEY# / 256 )
  67.  1580     M2# = MONEY# - M1# * 256
  68.  1590     MONEY# = ( MONEY# - M2# ) / 256
  69.  1600     MBYTE(I) = M2#
  70.  1610     lset DAT$ = chr$( MBYTE(I) )
  71.  1620     put #1 , &HC27 - I + 1  ' high から lowへ
  72.  1630   next
  73.  1640   :
  74.  1650   close : print M$(5)
  75.  1660   end
  76.